Tweak implementation of byte-compile-info-message

* lisp/emacs-lisp/byte-run.el (byte-compile-info-message): Clean
up implementation.

diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 30a9f984793c3dd2ebef5efb5cb7c2889e90057d..96cff2ebeb26a034005b56119ccd9e18cef28420 100644 (file)
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -542,7 +542,7 @@ Otherwise, return nil.  For internal use only."
 
 (defun byte-compile-info-message (&rest args)
   "Message format ARGS in a way that looks pleasing in the compilation output."
-  (message "%s" (concat "  INFO     " (apply #'format args))))
+  (message "  %-9s%s" "INFO" (apply #'format args)))
 
 \f
 ;; I nuked this because it's not a good idea for users to think of using it.